home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Control Panel Hide 10.xpl < prev    next >
Text File  |  2001-12-25  |  4KB  |  115 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #4"
  6. "VERSION"="1.15"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "BDE Administrator" applet"
  9. "TEXT 2"="Display "Matrox Display Properties" applet"
  10. "TEXT 3"="Display "Corel Versions Manager" applet"
  11. "TEXT 4"="Display "Symantec Live Update" applet"
  12. "TEXT 5"="Display "TweakUI" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="BDE Administrator is used to adjust Corel WordPerfect Office Suite 2000 database settings."
  15. "DESCRIPTION 3"="Matrox Display properties is for Matrox video card users."
  16. "DESCRIPTION 4"="Corel Versions Manager is part of Corel WordPerfect Office Suite 2000."
  17. "DESCRIPTION 5"="Symantec Live Update is used for updating Symantec products such as Norton Antivirus."
  18. "DESCRIPTION 6"="TweakUI is a program made by Microsoft.  See: http://members.aol.com/axcel216/98-3.htm#TWK98"
  19. "AUTHOR"="CptSiskoX"
  20. "CONTACTURL"="http://members.fortunecity.com/computingx/"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "COMMENT 1"=" "
  23. "COMMENT 2"="Thanks to Pierre Szwarc for the info about these Control Panel applets."
  24. "COMMENT 3"="Thanks to TeX HeX for his creativity."
  25. "COMMENT 4"="Thanks to AXCEL216 for his info about TweakUI.  See: http://members.aol.com/axcel216/98-3.htm#TWK98"
  26.  
  27.  
  28. '******************************************************************
  29. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  30. '******************************************************************
  31. sVals=Array("bdeadmin.cpl","mgapanel.cpl","vesrcpl.cpl","s32lucp1.cpl","tweakui.cpl")
  32. '******************************************************************
  33. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  34. '******************************************************************
  35. sPath="HKCU\Control Panel\Don't Load\"
  36. sFile="CONTROL.INI"
  37. sFileSec="Don't Load"
  38.  
  39.  
  40.  
  41. SUB Plugin_Initialize
  42.  for i=0 to UBound(sVals)
  43.      Call ReadIt(i+1,sVals(i)) 
  44.  next 
  45. END SUB
  46.  
  47. Sub ReadIt(ITM,VAL)
  48.   If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  49.      'old (win32 1/2) INI style...
  50.  
  51.      s=IniReadValue(sFile,sFileSec,VAL)
  52.      if len(s)>0 then
  53.         Call SetUIElement(ITM,false)
  54.      else
  55.         Call SetUIElement(ITM,true)
  56.      end if
  57.  
  58.   else
  59.  
  60.      s=RegReadValue(sPath & VAL)
  61.      if IsEmpty(s)=true then
  62.         Call SetUIElement(ITM,true)
  63.      else
  64.         Call SetUIElement(ITM,false)
  65.      end if
  66.   end if
  67.      
  68. End Sub
  69.  
  70. 'Called when the Plugin should validate the Data the user has entered
  71. SUB Plugin_CheckData(ElementIndex)
  72. END SUB
  73.  
  74. 'Called when the Plugin should apply the changes
  75. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  76.  for i=0 to UBound(sVals)
  77.      Call WriteIt(i+1,sVals(i)) 
  78.  next 
  79.  
  80.  Call IndicateSettingChange()
  81. END SUB
  82.  
  83. Sub WriteIt(ITM,VAL)
  84.  b=GetUIElement(ITM)
  85.  if b=true then
  86.     'Display it
  87.  
  88.     If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  89.        'win32 1/2
  90.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  91.     else
  92.        s=RegReadValue(sPath & VAL)
  93.        if IsEmpty(s)=false then
  94.           Call RegDeleteValue(sPath & VAL)
  95.        end if
  96.     end if
  97.  
  98.  else
  99.    'Hide it
  100.    
  101.    If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  102.       'win32 1/2
  103.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  104.    else
  105.       Call RegWriteValue(sPath & VAL,"1",1) 
  106.    end if
  107.  
  108.  end if   
  109. End Sub
  110.  
  111.  
  112. 'Called when the Plugin is about to be removed from memory
  113. SUB Plugin_Terminate
  114. END SUB
  115.